Examen Oracle 


I. Explicati noţiunile: 

1) PL/SQL: 

Este un limbaj de programare ce se caracterizează prin: 

€ suport deplin pentru SQL; 
opțiuni puternice pt programarea orientată obiecte; 
performantă; 
productivitate inalta; 
portabilitate; 
integrare stransa cu celelalte tehnologii Oracle; 
securitate remarcabila. 

2) Client/Server: 

Arhitectura care ia in considerare separarea managementului datelor 
de aspecte de prelucrare concrete. 

3) Middleware: 
un nivel al software-ului al cărui scop constă în mascarea eterogenitatii 
platformei hardware şi software, precum şi furnizarea unui model de 
programare comod dezvoltatorilor de aplicaţii . 

4) Tipuri abstracte de date: 

- tipuri de date definite de utilizatori. 
5) Clustere : 
Tabelele care sunt accesate frecvent impreuna, in general cele aflate 
intr-o relatie una-la-mai-multe, pot fi stocate fizic impreuna. Pentru a le 
stoca in acest mod este creata o structura speciala numita cluster care 
va pastra in aceleasi locatii liniile legate intre ele ale ambelor tabele. 
6) Cursor in Oracle si VFP: 
- In Oracle : 

Executia comenzilor SQL si stocarea informatiilor procesate 
presupun folosirea de catre SGBD a unor zone de lucru speciale. 
Cursoarele Oracle permit denumirea unor asemea zone si accesul la 
informatiile lor. Exista doua categorii de cursoare: implicite si explicite.. 
Cele implicite sunt create automat de sistem la executia comenzilor 
DML (INSERT, DELETE, UPDATE) Si a frazelor SELECT, care obtin rezultate 
pe o singura linie. Daca fraza SELECT extrage mai multe linii, atunci 
sunt necesare crearea si folosirea cursoarelor explicite care prezinta 
marele atu al posibilitatii prelucrarii individuale a inregistrarilor. 

- in VFP: 

Cursorul este o tabela temporara, a carei viata se intinde de la 
momentul unui SELECT ce prezinta clauza INTO CURSOR sau CREATE 
CURSOR pana la inchiderea sa , implicita sau explicita. 

7) SQL Pass - Through (SPT): 

- modalitate de a lega aplicații VFP la servere de baze de date. 

8) View: 

- tabela virtuala - are aceeasi structura cu o tabela obisnuita. 


9)Index : 
- reprezinta o structura utilizata de serverul bazei de date pentru a 
regasi rapid inregistrarile din tabelele bazei de date. Exista trei tipuri 
de indecsi: indecsi pentru tabele, indecsi pentru clustere si indecsi 
bitmap. 

10) RowID : 
- reprezinta un tip de date special ale carui valori sunt astfel constituite 
incat sa se poata deduce locatia fizica a fiecarei inregistrari : fiecare 
linie dintr-o tabela are un unic RowID. 

11) Secvente : 
- furnizeaza liste secventiale de valori unice. 

12) Tablespace : 
- o baza de date este impartita, in general, in mai multe unitati logice 
de stocare numite tablespace-uri. 

13) Bloc de date: 
- unitatea de stocare Oracle cea mai mica. 

14) Extent-ul: 
- consta din mai multe blocuri de date continue pe disc. Poate fi 
considerat unitatea de alocare a spatiului pt segmentele de date. 

15) Segmentul: 
- consta dintr-un set de extenturi utilizate pentru a stoca un anumit tip 
specific de date. 

16) Server: 
- reprezinta o entitate care poate oferi sevicii in cadrul unei arhitecturi 
distribuite. 

17) Colectie: 
- grup ordonat de elemente de acelasi tip ce pot fi referite printr-un 
indice care arata pozitia fiecarui element in cadrul grupului. 

18) Vector asociativ 
- sunt seturi se perechi cheie (indice) - valoare. (accesul la o anumita 
valoare se face cunoscandu-i cheia <indicele>). 

19) Tabela incapsulata (Nested table) 
- stocheaza un numar oarecare de componente, folosind numere 
secventiale drept indici. 

20) Vectori de marime variabila (Varray) 
- desi similari vectorilor asociativi ca mod de accesare, au o limita ce 
trebuie declarata, in timp ce tablourile asociative sunt nelimitate. 
Indicii sunt obligatoriu numere pozitive, consecutive. 

21) Parametrii intrare/iesire 
- in corpul unei functii un parametru de intrare nu poate fi modificat. 
Regula generala este ca parametrii de intrare pot fi doar cititi, 
parametrii de iesire doar scrisi iar cei de intrare-iesire folositi in ambele 
ipostaze. 

22) Functie/procedura 
- diferenta dintre o functie si o procedura este ca procedura executa 
anumite operatiuni, in timp ce functia intoarce o valoare. 


23) Pachet 
- grupeaza obiecte procedurale de tipul procedurilor, functiilor, 
variabilelor, exceptiilor, cursoarelor si tipurilor. 

24) Variabila cursor 
- reprezinta un pointer in care va fi stocata, la initializare, o referinta 
catre un cursor Oracle. 


25) Tabela mutanta 
- E o tabela in curs de modificarea printr-o comanda DML. 
26) Denormalizare 
- Redundanta controlata. 
27) Colectii 
- Sunt seturi de date ce pot fi tratate ca parte a unei singure 
inregistrari dintr-o tabela. 2-tipuri de astfel de date: vectori cu marime 
variabila si tabele incapsulate. 
28) Niveluri de puritate pentru functii 
- WNDS - nemodificarea bazei de date. 
- WNPS - nemodificarea starii variabilelor impachetate. 
- RNDS - neconsultarea datelor stocate in baza de date. 
- RNPS - neconsultarea starii variabilelor impachetate. 


II. a) Dati un exemplu de problema care sa reclame folosirea unei 
secvente iterative in PL/SQL. Formulare si rezolvare proprie. 
b) Dati un exemplu de cursor explicit. 
declare 
cursor c porci is 
select marca, nume, rasa, tarc 
trunc(months between(sysdate, datan)/12,0) as varsta 
from efectiv order by rasa; 
rec efectiv c_porci%rowtype; 
v tarc efectiv.tarc%type; 
v varsta integer:—99; 
numar integer:—1 
begin 
open c porci; 
fetch c porci into rec efectiv; 
while c porci?6found loop 
if rec efectiv.tarc«»v tarc then 
numar:=1 
V_tarc:=rec_efectiv.tarc 
v varsta:—rec efectiv.varsta 
update efectiv 
set ratie=ratie+ratie*1 
where marca-rec efectiv.marca 
else 
if numar>3 and rec efectiv.varsta«v varsta then 


null 

else 

update efectiv 

set ratie=ratie+ratie*1 
where varsta=rec_efectiv. varsta; 
numar:=numar+ 1 

v varsta:—rec efectiv. varsta; 
end if 

end if 

fetch c_porci into rec_ efectiv 
end loop 

close c porci 

end 


III.Pentru studentii F.E.A.A. se da o relatie de pornire cu structura : 
Stud(matr,numeprenume,anstudiu,medie,tipbursa) 

Pentru demestrul in curs: 
a) Busele se atribuie numai pentru forma de studii Zi. 
b) La fiecare specializare si ande studii se asigura pentru primii 10% 
studentii platitori de taxa burse de tip S1. 
C) Primii 15% din studentii fara taxa primesc burse de tip T iar 
urmatorii 25% primesc burse de tip S2. 
d) La medii egale tipurile de burse sunt identice 
Redactati grupul de instructiuni PL/SQL pentru determinarea tipului de 
bursa pentru toate specializarile. 


IV. Lucrati la un proiect de aplicatie web pentru inchirierea on-line de 
casete video. Returnarea casetelor si plata chiriei (+penalizari) se face 
de client la sediul firmei. 

- Datele despre film care intereseaza (titllu, anul lansarii, tara, 
tipul, permisiuni de vizionare,regizorul, scenaristul, actori din 
rolurile principale, cativa din actorii din rolurile secundare, premii 
luate de film). 

- Un film se poate intinde pe mai multe casete. 

- Date despre caseta (data producerii, casa producatoare, daca e 
titrata sau dublata, starea) 

- Un client e autentificat la logare. 

- Un client poate inchiria maxim 5 casete. 

- Taxa de inchiriere e unica pe caseta insa incepand de la a doua 
caseta inchiriata simultan se aplica o reducere de 5%. Lao 
inchiriere de 3 casete se va plati: - 100% pentru prima caseta; 

- 95% pentru a doua caseta; 

- 90% pentru a treia caseta. 
- plata taxei se face in numerar pe baza de chitanta. 
- termen de restituire a casetelor : 48 ore. 


- pentru fiecare zi de intarziere - penalizare 30% din taxa de 
inchiriere. 

In calitatea pe care o aveti, trebuie sa elaborati schema bazei de 
date. Se recomanda sa adaugati atribute suplimentare pentru 
instituirea de restrictii, etc. 

Serverul BD e Oracle. 

Elaborati cateva proceduri si declansatoare pe care le considerati 
relevante. 


Model de pachet 
CREATE OR REPLACE PACKAGE pachet clienti AS 
-- regulile (CASCADE sau RESTRICT) de urmat la modificarea unui 
cnpc! sau stergerea 
-- unei linii în clienti 
v regula upd clienti CHAR(1) := 'C'; -- implicit UPDATE CASCADE 
v regula del clienti CHAR(1) := 'R' ; -- implicit DELETE RESTRICT 


-- adaugam si patru functii pentru cautarea unui cnpcl în tabelele 

copil 

FUNCTION f_cnpcl_in_carduri (cnpcl clienti.cnpcl?6 TYPE) RETURN 
BOOLEAN; 

FUNCTION f cnpcl in dobanda (cnpcl clienti.cnpcl?6 TYPE) 
RETURN BOOLEAN; 

FUNCTION f cnpcl in functie client (cnpcl clienti.cnpcl?6 TYPE) 
RETURN BOOLEAN; 

FUNCTION f cnpcl in operatiuni card (cnpcl clienti.cnpcl?6 TYPE) 
RETURN BOOLEAN; 
END pachet clienti ; 
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CREATE OR REPLACE PACKAGE BODY pachet clienti AS 
FUNCTION f cnpcl in carduri ( 
cnpcl_ clienti.cnpcl?6 TYPE) RETURN BOOLEAN 
IS 
v unu NUMBER (1):= 0; 
BEGIN 
SELECT 1 INTO v unu FROM dual WHERE EXISTS 
(SELECT 1 FROM carduri WHERE cnpcl = cnpcl ); 
RETURN TRUE; 
EXCEPTION 
WHEN NO DATA FOUND THEN 
RETURN FALSE; 
END f cnpcl in carduri; 


FUNCTION f_cnpcl_in_dobanda ( 
cnpcl clienti.cnpcl?6 TYPE) RETURN BOOLEAN 
IS 
v unu NUMBER(1) := 0; 
BEGIN 
SELECT 1 INTO v unu FROM dual WHERE EXISTS 
(SELECT 1 FROM dobanda WHERE cnpcl = cnpcl ) ; 
RETURN TRUE; 
EXCEPTION 
WHEN NO DATA FOUND THEN 
RETURN FALSE; 
END f cnpcl in dobanda; 


FUNCTION f cnpcl in functie client ( 
cnpcl_ clienti.cnpcl?6 TYPE) RETURN BOOLEAN 
IS 
v unu NUMBER(1) := 0 
BEGIN 
SELECT 1 INTO v unu FROM dual WHERE EXISTS 
(SELECT 1 FROM functie client WHERE cnpcl = cnpcl ) ; 
RETURN TRUE; 
EXCEPTION 
WHEN NO DATA FOUND THEN 
RETURN FALSE ; 
END f cnpcl in functie client; 


FUNCTION f cnpcl in operatiuni card ( 
cnpcl clienti.cnpcl?6 TYPE) RETURN BOOLEAN 
IS 
v unu NUMBER(1) := 0; 
BEGIN 
SELECT 1 INTO v unu FROM dual WHERE EXISTS 
(SELECT 1.FROM operatiuni card WHERE cnpcl — cnpcel ) ; 
RETURN TRUE; 
EXCEPTION 
WHEN NO DATA FOUND THEN 
RETURN FALSE; 
END f cnpcl in operatiuni card; 


END pachet clienti ; 
/ 


-- Declansator cu dubla actiune, CASCADE sau RESTRICT 
CREATE OR REPLACE TRIGGER trg clienti upd after row 
AFTER UPDATE OF cnpcl ON clienti 

REFERENCING OLD AS OLD NEW AS NEW 


FOR EACH ROW 
BEGIN 
dbms_output.put line('trg clienti upd after row") ; 
IF pachet. clienti. v regula upd clienti = 'C' THEN -- UPDATE 
CASCADE 
update carduri set cnpcl= :new.cnpcl where cnpcl- :old.cnpcl; 
update dobanda set cnpcl= :new.cnpcl where cnpcl- :old.cnpcl; 
update functie client set cnpcl= :new.cnpcl where 
cnpcl= :old.cnpcl; 
update operatiuni card set cnpcl= :new.cnpcl where 
cnpcl= :old.cnpcl; 
ELSE 
-- UPDATE RESTRICT 
IF pachet clienti.f cnpcl in carduri (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20511, 'cnpcl sters are copii in 
carauri'); 
END IF; 
IF pachet clienti.f cnpcl in dobanda (:OLD.cnpcl) THEN 
RAISE APPLICA TION. ERROR (-20512, ‘cnpcl sters are copii in 
dobanzi'); 
END IF; 
IF pachet clienti.f cnpcl in functie client (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20513, 'cnpcl sters are copii in 
functie client"); 
END IF; 
IF pachet clienti.f cnpcl in operatiuni card (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20514, 'cnpcl sters are copii in 
operatiuni card"); 
END IF; 
END IF; 
END; 
/ 


-- Declansator de stergere (tot) cu dubla actiune, CASCADE sau 
RESTRICT 
CREATE OR REPLACE TRIGGER trg clienti del before row 
BEFORE DELETE ON clienti 
REFERENCING OLD AS OLD NEW AS NEW 
FOR EACH ROW 
BEGIN 
dbms output.put line('trg clienti del before row") ; 
IF pachet. clienti.v_regula_del_ Clienti = 'C' THEN 

-- DELETE CASCADE! 

DELETE FROM clienti WHERE cnpcl = :OLD. cnpcl ; 

DBMS OUTPUT.PUT LINE (‘Din clienti s-au sters ' || SQL 
%ROWCOUNT || ' inregistrari '); 


DELETE FROM carduri WHERE cnpcl = :OLD.cnpcl ; 
DBMS OUTPUT.PUT LINE (‘Din carduri s-au sters ' || SQL 
%ROWCOUNT || ' inregistrari '); 
DELETE FROM dobanda WHERE cnpcl = :OLD.cnpcl ; 
DBMS OUTPUT.PUT LINE ('Din dobanda s-au sters ' [| SQL 
%ROWCOUNT || ' inregistrari '); 
DELETE FROM functie client WHERE cnpcl = :OLD.cnpcl ; 
DBMS OUTPUT.PUT LINE ('Din functie client s-au sters ' || SQL 
%ROWCOUNT ||" inregistrari *); 
DELETE FROM operatiuni card WHERE cnpcl = :OLD.cnpcl ; 
DBMS OUTPUT.PUT LINE (‘Din operatiuni card s-au sters ' [| 
SQL%ROWCOUNT || ' inregistrari ^); 
ELSE 
-- UPDATE RESTRICT! 
IF pachet clienti.f cnpcl in carduri (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20511, 'cnpcl sters are copii in 
carduri’); 
END IF; 
IF pachet clienti.f cnpcl in dobanda (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20512, 'cnpcl sters are copii in 
dobanzi’); 
END IF; 
IF pachet clienti.f cnpcl in functie client (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20513, 'cnpcl sters are copii in 
functie client"); 
END IF; 
IF pachet clienti.f cnpcl in operatiuni card (:OLD.cnpcl) THEN 
RAISE APPLICATION ERROR (-20514, 'cnpcl sters are copii in 
operatiuni . card'); 
END IF; 
END IF; 
END; 
4 


Exemplu secventa 
CREATE SEQUENCE seq codimobil 
INCREMENT BY 1 
MINVALUE 1000 
MAXVALUE 9999 
ORDER; 


CREATE OR REPLACE TRIGGER trg bef ins codimobil 
BEFORE INSERT ON imobile 
FOR EACH ROW 
DECLARE 
codimobil imobile.codimobil?6 TYPE; 


BEGIN 
SELECT seq_codimobil.NEXTVAL 
INTO codimobil_ 
FROM DUAL; 
:NEW.codimobil := codimobil_; 
END; 
/ 


Trigger pt evitarea violarii cheii primare 
create or replace trigger trg_codimobil 


after update of codimobil on imobile referencing old as old new as 
new 

for each row 

declare 

v codimobil curent imobile.codimobil%type; 

v codimobil imobile.codimobil%type; 

begin 

if new.codimobil>:old.codimobil then 

select last number into v codimobil curent from user sequences 
where sequence name-'seq codimobil'; 
if:new.codimobil<=v_codimobil_curent+3 then 

for i in v codimobil curent new.codimobil loop 

select seq codimobil.nextval into v codimobil from dual; 

end loop; 

else 

raise application error(-20529,'codimobil depaseste cu mai mult de 
3 val curenta a secventei"); 

end if; 

end if; 

end; 

/ 


Camp calculat 

create or replace trigger trg incasari calcul bef 
before insert on incasari 
for each row 
begin 
if inserting then 
:new. val tva:—:new.pretfaratva*:new.proctva; 
:new.prettotal:—:new.pretfaratva 1 :new.val tva; 

update incasari set val tva—:new.val tva, 
prettotal=:new.prettotal where codinc=:new.codinc; 
end if; 
end; 
/ 


Timp de lucru: 3 ore. 
Bibliografie: Cap. 4, 8, 9, 11. 


Exemplu de tabel incapsulat 
create or replace type scolaritate as object ( 
an_inceput number(4), 
an_final number (4), 
institutie varchar2 (50), 
specializare_sectie varchar2 (100)) 

/ 


declare 

type t scolaritate is table of scolaritate 

v scolaritate t scolaritate:—t scolaritate()( 

begin 

v scolaritate.extend 

v scolaritate(1):—scolaritate(1992,1999,'x1','y1') 

dbms output.put line('Tabloul incapsulat are”]] 

v scolaritate.count[|'componente") 

dbms output.put line('Primul el are pozitia’//v_scolaritate. first) 
dbms output.put line('Ultimul el are pozitia'||v scolaritate.last). 


